home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / lib / ruby / 1.8 / profiler.rb < prev    next >
Text File  |  2007-02-12  |  2KB  |  60 lines
  1. module Profiler__
  2.   # internal values
  3.   @@start = @@stack = @@map = nil
  4.   PROFILE_PROC = proc{|event, file, line, id, binding, klass|
  5.     case event
  6.     when "call", "c-call"
  7.       now = Process.times[0]
  8.       @@stack.push [now, 0.0]
  9.     when "return", "c-return"
  10.       now = Process.times[0]
  11.       key = [klass, id]
  12.       if tick = @@stack.pop
  13.         data = (@@map[key] ||= [0, 0.0, 0.0, key])
  14.         data[0] += 1
  15.         cost = now - tick[0]
  16.         data[1] += cost
  17.         data[2] += cost - tick[1]
  18.         @@stack[-1][1] += cost if @@stack[-1]
  19.       end
  20.     end
  21.   }
  22. module_function
  23.   def start_profile
  24.     @@start = Process.times[0]
  25.     @@stack = []
  26.     @@map = {}
  27.     set_trace_func PROFILE_PROC
  28.   end
  29.   def stop_profile
  30.     set_trace_func nil
  31.   end
  32.   def print_profile(f)
  33.     stop_profile
  34.     total = Process.times[0] - @@start
  35.     if total == 0 then total = 0.01 end
  36.     data = @@map.values
  37.     data.sort!{|a,b| b[2] <=> a[2]}
  38.     sum = 0
  39.     f.printf "  %%   cumulative   self              self     total\n"
  40.     f.printf " time   seconds   seconds    calls  ms/call  ms/call  name\n"
  41.     for d in data
  42.       sum += d[2]
  43.       f.printf "%6.2f %8.2f  %8.2f %8d ", d[2]/total*100, sum, d[2], d[0]
  44.       f.printf "%8.2f %8.2f  %s\n", d[2]*1000/d[0], d[1]*1000/d[0], get_name(*d[3])
  45.     end
  46.     f.printf "%6.2f %8.2f  %8.2f %8d ", 0.0, total, 0.0, 1     # ???
  47.     f.printf "%8.2f %8.2f  %s\n", 0.0, total*1000, "#toplevel" # ???
  48.   end
  49.   def get_name(klass, id)
  50.     name = klass.to_s || ""
  51.     if klass.kind_of? Class
  52.       name += "#"
  53.     else
  54.       name += "."
  55.     end
  56.     name + id.id2name
  57.   end
  58.   private :get_name
  59. end
  60.